home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 43 / 64er_Magazin_Sonderheft_43_19xx_Markt__Technik_de_Side_A.d64 / suchen v.1 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  560 b   |  33 lines
  1. 10 rem****** listing 1 **********
  2. 12 :
  3. 20 z=0
  4. 25 read plz$,st$
  5. 30 if plz$="@" then 45
  6. 35 z=z+1
  7. 40 goto 25
  8. 45 dim plz$(z),st$(z)
  9. 50 restore
  10. 55 for i=1 to z
  11. 60 read plz$(i),st$(i)
  12. 65 next i
  13. 67 :
  14. 70 input "name der stadt";nst$
  15. 75 for k=1 to z
  16. 80 x=0
  17. 85 for l=1 to len(nst$)
  18. 90 if mid$(nst$,l,1) = mid$(st$(k),l,1) then x=x+1
  19. 95 next l
  20. 96 print x;st$(k)
  21. 98 :
  22. 100 pr=100/len(nst$)*x
  23. 105 if pr>=70 then print ,,plz$(k)" "st$(k);pr"%"
  24. 108 :
  25. 110 next k
  26. 998 :
  27. 999 :
  28. 1000 data 8470,nabburg,5441,nachtsheim
  29. 1005 data 6509,nack,6506,nackenheim
  30. 1010 data 8590,nagel,7270,nagold,2061,nahe
  31. 1015 data 2121,nahrendorf,8674,naila
  32. 2000 data @,@
  33.